﻿Public Class ClsUcnGridUnboundItemJoinedModulesInfo
    Inherits ClsUcnGridUnboundItemBasic
    'represents TreeList row in UcnGridUnbound usercontrol - properties of joined modules

#Region "Attributes"
#Region "Private attributes"
    Private MsModuleName As String 'child module name
    Private MsHumanModuleName As String 'child human module name
    Private MsUnitName As String 'child unit name
    Private MsHumanUnitName As String 'child human unit name
    Private MsTableName As String 'child table name
    Private MsHumanTableName As String 'child human table name
    Private MsColumnName As String 'child column name
    Private MsHumanColumnName As String 'child human column name    
#End Region
#End Region
#Region "Constructors"
    Public Sub New(ByVal IiRowID As Integer, ByVal IiParentRowID As Integer, ByVal IbEnabled As Boolean, ByVal IbSelected As Boolean, ByVal IsModuleName As String, ByVal IsHumanModuleName As String, ByVal IsUnitName As String, ByVal IsHumanUnitName As String, ByVal IsTableName As String, ByVal IsHumanTableName As String, ByVal IsColumnName As String, ByVal IsHumanColumnName As String)
        MyBase.New(IiRowID, IiParentRowID, IbEnabled, IbSelected)

        MsModuleName = IsModuleName
        MsHumanModuleName = IsHumanModuleName
        MsUnitName = IsUnitName
        MsHumanUnitName = IsHumanUnitName
        MsTableName = IsTableName
        MsHumanTableName = IsHumanTableName
        MsColumnName = IsColumnName
        MsHumanColumnName = IsHumanColumnName
    End Sub
#End Region
#Region "Properties"
#Region "Public properties"
    Public Property ModuleName() As String
        Get
            Return MsModuleName
        End Get
        Set(ByVal IsValue As String)
            MsModuleName = IsValue
        End Set
    End Property
    Public Property HumanModuleName() As String
        Get
            Return MsHumanModuleName
        End Get
        Set(ByVal IsValue As String)
            MsHumanModuleName = IsValue
        End Set
    End Property
    Public Property UnitName() As String
        Get
            Return MsUnitName
        End Get
        Set(ByVal IsValue As String)
            MsUnitName = IsValue
        End Set
    End Property
    Public Property HumanUnitName() As String
        Get
            Return MsHumanUnitName
        End Get
        Set(ByVal IsValue As String)
            MsHumanUnitName = IsValue
        End Set
    End Property
    Public Property TableName() As String
        Get
            Return MsTableName
        End Get
        Set(ByVal IsValue As String)
            MsTableName = IsValue
        End Set
    End Property
    Public Property HumanTableName() As String
        Get
            Return MsHumanTableName
        End Get
        Set(ByVal IsValue As String)
            MsHumanTableName = IsValue
        End Set
    End Property
    Public Property ColumnName() As String
        Get
            Return MsColumnName
        End Get
        Set(ByVal IsValue As String)
            MsColumnName = IsValue
        End Set
    End Property
    Public Property HumanColumnName() As String
        Get
            Return MsHumanColumnName
        End Get
        Set(ByVal IsValue As String)
            MsHumanColumnName = IsValue
        End Set
    End Property
#End Region
#End Region

End Class
